This forum is closed to new posts and
responses. The content has been migrated to the Digital Solutions Community. Please join us there for new content as well as this content. For customer support, please visit the official HCL customer support channels below:
RE: Seeking for help on Lotus Script Functionality ~Lily Nonwetherjip 9.Dec.03 02:25 PM a Web browser Applications Development 6.0.1Windows 2000
search for NotesDbDirectory in the help and the version 5 forum:
This sample code should also help:
Dim dbSource As NotesDatabase
Dim strFilePath As String
Dim strFileNameFind As String
Dim directory As NotesDbDirectory
Set directory = New NotesDbDirectory( "" )
Set dbSource = directory.GetFirstDatabase( DATABASE )
Call dbSource.open( "" , "" )
While Not dbsource Is Nothing
strFilePath = Ucase$(dbSource.FilePath)
strFileNameFind = Ucase$("E:\Lotus\Domino\Data\Mail\" + dbSource.FileName)
If (strFilePath = strFileNameFind) Then
'You found a file, so do something...
Set dbSource = directory.GetNextDatabase
Call dbSource.open( "" , "" )
Wend
Return to top
. . RE: Seeking for help on Lotus Scrip... (~Lily Nonwether... 9.Dec.03) 
Print this page
